home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / autokick < prev    next >
Text File  |  2002-09-18  |  551b  |  35 lines
  1. /* Autokick and kicknban 1993, 1994 */
  2.  
  3. load guh
  4. @ auto.kicks = []
  5.  
  6. alias autokick {
  7.     if (is_on($0) == [$0]) {
  8.         push auto.kicks $uh($0)
  9.     } {
  10.         echo *** $0 is not on irc right now
  11.     }
  12. }
  13. alias unkick {
  14.     if (is_on($0) == [$0]) {
  15.         @ auto.kicks = remw($uh($0) $auto.kicks)
  16.     } {
  17.         echo *** $0 is not on irc right now
  18.     }
  19. }
  20.  
  21. ^on #-join -30 '% % \\[$auto.kicks\\]' {
  22.     kick $1 $0 autokicked
  23.     echo *** AUTOKICK PROTECTION ACTIVATED AGAINST $0
  24.     mode $1 +b *!$2
  25. }
  26.  
  27. alias kicknban {
  28.     kick * $0 $1
  29.     if (onchannel($0 $C)) {
  30.         mode * +b *!$userhost($0)
  31.     }
  32. }
  33.  
  34. #hop'94
  35.